home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1007 < prev    next >
Text File  |  1998-01-08  |  6KB  |  154 lines

  1. userdict/epsdict 96 dict dup begin put
  2. /T true def
  3. /F false def
  4. /CT 0 def
  5. /K F def
  6. /K0 T def
  7. /K1 F def
  8. /K2 F def
  9. /op F def
  10. /sepf F def
  11. /h 0 def
  12. /i 0 def
  13. /j 0 def
  14. /k 0 def
  15. /s 0 def
  16. /I 0 def
  17. /J 0 def
  18. /f1 0 def
  19. /f2 0 def
  20. /f12 0 def
  21. /g0 0 def
  22. /g1 0 def
  23. /g2 0 def
  24. /g3 0 def
  25. /cc 0 def
  26. /ccls 0 def
  27. /ccn 0 def
  28. /ccpl 0 def
  29. /fctr 0 def
  30. /eprgb 0 def
  31. /x matrix def
  32. /A 128 array def
  33. /setpacking where dup{exch pop currentpacking exch true setpacking}if
  34. /B{bind def}bind def
  35. /X{exch def}B
  36. /p2{pop pop}B
  37. /p3{pop pop pop}B
  38. /p4{pop pop pop pop}B
  39. /xpdctsop[currentdict/begin load]cvx B
  40. /e/end load def
  41. /E{load e exec xpdctsop}B
  42. /E0{load e exec}B
  43. /stf systemdict/settransfer get def
  44. /ctf systemdict/currenttransfer get def
  45. /cctp{cvlit/f2 X cvlit/f1 X
  46.  /f12 f1 length f2 length add array def
  47.  f12 0 f1 putinterval f12 f1 length f2 putinterval f12 cvx}B
  48. /st1{/CT load cctp stf}B
  49. /stcp{ctf cctp stf}B
  50. /W{K1{dup 1 ne}{T}ifelse/K0 X 4 copy 4 copy eq 3 1 roll eq and 4 -2 roll eq and exch 0 eq and/K X pop}B
  51. /setoverprint{xpdctsop/op X e}B
  52. /currentoverprint{xpdctsop op e}B
  53. /P{op not K0 and currentgray 1 ne K or or K2 or}B
  54. /setcolortransfer{xpdctsop 4 1 roll p3/stf E0}B
  55. /setcolorscreen{xpdctsop 12 3 roll p3 p3 p3/setscreen E0}B
  56. /setseparationgray/setgray load def
  57. /setlvl{1. exch sub setseparationgray}B
  58. /setcmykcolor{xpdctsop W p4 1 setseparationgray e}B
  59. /setgray{K2{setseparationgray}{1. exch sub 0 0 0 4 -1 roll setcmykcolor}ifelse}B
  60. /setrgbcolor{
  61.  3{1 exch sub 3 1 roll}repeat
  62.  3 copy 2{2 copy gt{exch}if pop}repeat 
  63.  4 1 roll 3{3 index sub 3 1 roll}repeat
  64.  4 -1 roll setcmykcolor}B
  65. /setcmybcolor{setcmykcolor}B
  66. /findcmykcustomcolor{5 array astore readonly}B
  67. /setcustomcolor{
  68.  xpdctsop exch dup 4 get/ccn X F/sepf X F/K X T/K0 X
  69.  ccls{ccn eq{/sepf T def exit}if}forall
  70.  sepf{pop ccn ccpl eq{setlvl}{pop 0 setlvl}ifelse}
  71.  {aload p2 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ifelse e
  72. }def
  73. /F0/sethsbcolor load def
  74. /sethsbcolor{xpdctsop F0 currentrgbcolor setrgbcolor e}B
  75. /F1/imagemask load def
  76. /imagemask{xpdctsop P{/F1 E0}{gsave nulldevice/F1 E0 grestore}ifelse}B
  77. /separationimage/image load def
  78. /F2/image load def
  79. /image{xpdctsop cc 1 eq K2 or{/F2 E0}{gsave{pop 1}st1/F2 E0 grestore}ifelse}B
  80. /customcolorimage{xpdctsop dup 4 get/ccn X F/sepf X
  81.  ccls{ccn eq{/sepf T def exit}if}forall
  82.  sepf{pop ccn ccpl eq{/F2 E0}{gsave{pop 1}st1/F2 E0 grestore}ifelse}
  83.  {gsave cc 5 ge cc 7 le and cc 1 eq or{cc 1 eq{3}{cc 5 sub}ifelse get/fctr X
  84.  {1 fctr 1 4 -1 roll sub mul sub}stcp}{pop{pop 1}st1}ifelse/F2 E0 grestore}ifelse
  85. }B
  86. /rgbmultpr{/g2 E/g1 E/g0 E
  87.  dup/s X k{/i 0 def{.11 mul 1 index i get .59 mul add
  88.  2 index i get .3 mul add round cvi
  89.  s i 3 -1 roll put/i i 1 add def}forall p2}{p3}ifelse s
  90. }B
  91. /cmymultpr{/g3 E/g2 E/g1 E/g0 E
  92.  cc 1 eq{4 1 roll p3}{4 5 cc sub roll p3}ifelse
  93. }B
  94. /snglpr{/g0 E
  95.  dup dup length eprgb{3}{4}ifelse idiv 0 exch getinterval/s X
  96.  h{/i 0 def/j 0 def s{pop eprgb{k{dup i 3 getinterval{}forall
  97.  .11 mul exch .59 mul add exch .3 mul add round cvi}{0}ifelse 3}
  98.  {dup i 4 getinterval cc 1 eq{3 get}{cc 5 sub get}ifelse 4}ifelse
  99.  i add/i X s j 3 -1 roll put/j j 1 add def}forall}if pop s
  100. }B
  101. /colorimage {
  102.  xpdctsop gsave 3 eq dup/eprgb X not{{1 exch sub}stcp}if
  103.  {eprgb{/g0 X/g1 X/g2 X/rgbmultpr load}
  104.  {/g0 X/g1 X/g2 X/g3 X/cmymultpr load}ifelse}
  105.  {/g0 X/snglpr load}ifelse 2 index 8 eq cc 1 eq 2 copy and/k X
  106.  cc 5 ge cc 7 le and or dup 3 1 roll and/h X eprgb not and
  107.  {F2}{image}ifelse grestore e
  108. }B
  109. /F3/fill load def
  110. /fill{xpdctsop P{F3}{newpath}ifelse e}B
  111. /F4/eofill load def
  112. /eofill{xpdctsop P{F4}{newpath}ifelse e}B
  113. /F5/stroke load def
  114. /stroke{xpdctsop P{F5}{newpath}ifelse e}B
  115. /F6/show load def
  116. /show{xpdctsop P{/F6 E0}{/stringwidth E0 rmoveto}ifelse}B
  117. /F7/ashow load def
  118. /ashow{xpdctsop P{/F7 E0}{gsave currentpoint x currentmatrix nulldevice
  119.  setmatrix moveto/F7 E0 currentpoint grestore moveto}ifelse}B
  120. /F8/widthshow load def
  121. /widthshow{xpdctsop P{/F8 E0}{gsave currentpoint x currentmatrix nulldevice
  122.  setmatrix moveto/F8 E0 currentpoint grestore moveto}ifelse}B
  123. /F9/awidthshow load def
  124. /awidthshow{xpdctsop P{/F9 E0}{gsave currentpoint x currentmatrix nulldevice
  125.  setmatrix moveto/F9 E0 currentpoint grestore moveto}ifelse}B
  126. /F10/kshow load def
  127. /kshow{xpdctsop P{/F10 E0}{gsave currentpoint x currentmatrix nulldevice
  128.  setmatrix moveto/F10 E0 currentpoint grestore moveto}ifelse}B
  129. /F11/gsave load def
  130. /gsave{xpdctsop K2 not{A I K put A I 1 add K0 put/I I 2 add def}if F11 e}B
  131. /F12/grestore load def
  132. /grestore{xpdctsop F12 K2 not{I J gt{/I I 2 sub def}if A I get/K X A I 1 add get/K0 X}if e}B
  133. /F13/grestoreall load def
  134. /grestoreall{xpdctsop F13 K2 not{/I J def A I get/K X A I 1 add get/K0 X}if e}B
  135. /F14/save load def
  136. /save{xpdctsop F14 K2 not{/J I def A I K put A I 1 add K0 put/I I 2 add def}if e}B
  137. /epsetup{
  138.  /cc X/ccls X/ccpl X A 0 F put A 1 T put ctf/CT X
  139.  cc 1 eq{/setcmykcolor{xpdctsop W setlvl p3 e}B
  140.  /setcolortransfer{xpdctsop 4 1 roll p3/stf E0}B
  141.  /setcolorscreen{xpdctsop 12 3 roll p3 p3 p3/setscreen E0}B}if
  142.  cc 5 eq{/setcmykcolor{xpdctsop W p3 setlvl e}B
  143.  /setcolortransfer{xpdctsop p3/stf E0}B
  144.  /setcolorscreen{xpdctsop p3 p3 p3/setscreen E0}B}if
  145.  cc 6 eq{/setcmykcolor{xpdctsop W p2 setlvl pop e}B
  146.  /setcolortransfer{xpdctsop 4 -1 roll p3/stf E0}B
  147.  /setcolorscreen{xpdctsop 12 -3 roll p3 p3 p3/setscreen E0}B}if
  148.  cc 7 eq{/setcmykcolor{xpdctsop W pop setlvl p2 e}B
  149.  /setcolortransfer{xpdctsop 4 -2 roll p3/stf E0}B
  150.  /setcolorscreen{xpdctsop 12 -6 roll p3 p3 p3/setscreen E0}B}if
  151. }def
  152. {setpacking}if
  153. end
  154.